


 % Quit rate
 %%%%%%%%%%%%%%%%%%%%%%%%%%
 % Natural wastage
quit_nw = s*lambda*ones(obs_nw,1);
 %
 % Net Expansion
quit_ne = ((1-omega1)/(alpha*c))*grid_ne - (r+(omega0/c)) ...  % for auxconst, see "ssdensity.m" 
          - auxconst*(grid_ne.^(1/(1-alpha))); 
 % Average quit rate= 
quit_all= [ quit_nw; quit_ne];


 % Hiring
 %%%%%%%%%%%%%%%%%%%%%%%%%%
qq_ne         = (ushr/(1-ushr)) + G_ne;
deltaprime_ne = ((1-omega1)/(alpha*c)) - auxconst*(1/(1-alpha))*(grid_ne.^(alpha/(1-alpha))); 
eta_ne_x_g_ne = -deltaprime_ne.*qq_ne; 
eta_ne   = eta_ne_x_g_ne ./ g_ne; 